function data=gcpick_removemean(datain, status)
data=datain;
for i = 1:length(datain)
    t = (1:data(i).npts)*data(i).delta;
    range = (t > status.cut(1)) & (t<status.cut(2));
    data(i).E = data(i).E - mean(data(i).E(range));
    data(i).N = data(i).N - mean(data(i).N(range));
    data(i).Z = data(i).Z - mean(data(i).Z(range));
end
end